home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #9 / Commodore_Disk_User_Vol.4_9_1991_-_Side_A.d64 / mt intro (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  107 lines
  1. 10 rem ***************************
  2. 20 rem ** memory transfer intro **
  3. 30 rem **     by lee bamber     **
  4. 40 rem ***************************
  5. 100 print"[147][158]":poke53280,0:poke53281,0
  6. 110 print" t h e   m e m o r y   t r a n s f e r
  7. 115 [153]
  8. 120 [153]"   i n s t r u c t i o n   p a g e
  9. 122 print:print"                      by lee bamber"
  10. 125 print""
  11. 130 print"this intro will simply explain all the
  12. 135 [153]"possiblities of the memory transfer"
  13. 140 [153]"given with this intro.  the two main
  14. 145 print"uses of this package is the transfer of
  15. 150 [153]"recorded data in the memory and the
  16. 155 print"transfer of machine code blocks.
  17. 160 [153]"most professional programmers move the
  18. 165 print"machine code around in memory to suit
  19. 170 [153]"their programs.  yet for those of you
  20. 175 print"who cannot see how this utility can
  21. 180 [153]"help you press a key to find out!!"
  22. 185 [161]a$:[139]a$[178]""[167][137]185
  23. 200 [153]"load"
  24. 210 [153]"here is a screen in memory reduced in
  25. 220 print"scale :-"
  26. 230 print""
  27. 231 print"[166]aaaaaaaaaaaaa[166]"
  28. 232 print"[166]a[166]a[166][166][166][166][166][166][166][166]aa[166]"
  29. 233 print"[166]a[166]aaaaa[166]aa[166][166]a[166]"
  30. 234 print"[166]a[166][166][166][166][166]a[166][166][166][166][166]a[166]"
  31. 235 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
  32. 236 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
  33. 237 print"[166]a[166]a[166][166][166][166][166][166]a[166]aa[166]"
  34. 238 print"[166]aaaaaaaaaaaaa[166]"
  35. 239 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  36. 240 print""
  37. 250 print"and here is an empty area in memory:-";:print""
  38. 260 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  39. 261 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  40. 262 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  41. 263 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  42. 264 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  43. 265 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  44. 266 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  45. 267 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  46. 268 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";:print""
  47. 270 fort=0to3000:nextt
  48. 280 print"suddenly your
  49. 281 [153]"program overwrites
  50. 282 print"your screen data!
  51. 283 [153]"what do you do ?"
  52. 284 [153]"28tutfdudghgejd"
  53. 285 [153]"064fohkbe94foih"
  54. 286 [153]"48hjhf8y4"
  55. 290 [129]t[178]0[164]3000:[130]:[153]"";
  56. 300 [153]"why not transfer
  57. 305 print"the data to
  58. 310 [153]"another block of
  59. 315 print"memory using this!"
  60. 320 fort=0to2000:nextt
  61. 350 print"";
  62. 430 print"";
  63. 431 print"[166]aaaaaaaaaaaaa[166]"
  64. 432 print"[166]a[166]a[166][166][166][166][166][166][166][166]aa[166]"
  65. 433 print"[166]a[166]aaaaa[166]aa[166][166]a[166]"
  66. 434 print"[166]a[166][166][166][166][166]a[166][166][166][166][166]a[166]"
  67. 435 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
  68. 436 print"[166]a[166][166][166]a[166]a[166]aa[166]aa[166]"
  69. 437 print"[166]a[166]a[166][166][166][166][166][166]a[166]aa[166]"
  70. 438 print"[166]aaaaaaaaaaaaa[166]"
  71. 439 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":print"[145][145][145]":print"press any key"
  72. 440 print
  73. 450 geta$:ifa$=""then450
  74. 500 print"[147]";
  75. 510 print"or you could just simply scan through
  76. 520 [153]"the memory experimenting with blocks
  77. 530 print"of memory.  you will find it to be a
  78. 540 [153]"great allie when programming.
  79. 550 print:print"you may find it intresting to know that
  80. 560 [153]"in the prog'the ultimate font editor'";
  81. 570 [153]"it has a built in screen designer, the
  82. 580 print"data for this screen is stored at
  83. 590 [153]"locations 3072-4072.  the memory which
  84. 600 print"holds the transfer utility is at
  85. 610 [153]"2043-4800 so if you would like to
  86. 620 print"transfer this screen in memory,load
  87. 630 [153]"the saved screen file and type:-"
  88. 640 [153]:[153]"a=0:fort=3072 to 4072:l=peek(t):poke    20000+a,l:a=a+1:nextt"
  89. 645 [161]a$:[139]a$[178]""[167]645
  90. 650 [153]:[153]"you will have noticed the large
  91. 660 print"number there, that is where the screen
  92. 670 [153]"has been transfered to, well away from
  93. 680 print"the transfer program.
  94. 690 [153]:[153]"* please note!! when loading the screen
  95. 700 print"data from the font editor no basic
  96. 710 [153]"program must reside in memory between
  97. 720 print"the two stated locations.
  98. 730 [153]:[153]"i hope you will enjoy using the utility
  99. 740 print"as much as i have."
  100. 750 print:print"       press any key to continue"
  101. 760 geta$:ifa$=""then760
  102. 800 print"[147]":poke53280,3
  103. 810 print"to load the memory transfer load in the"
  104. 820 print"filename 'memory transfer'."
  105. 830 print
  106. 840 end
  107.